home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / t_os / inaka / inaka.bas < prev    next >
Encoding:
BASIC Source File  |  1993-11-30  |  1.3 KB  |  37 lines
  1. 100 CLS
  2. 110 DIM ANTA%(10000),TEGE1%(10000),NAN%(10000),JAJA%(10000),JAGA%(10000),MAJ%(4000),MAK%(20000) 
  3. 120 LOAD@ "ANTA.SND",ANTA%
  4. 130 LOAD@ "TEGE1.SND",TEGE1%
  5. 140 LOAD@ "NAN.SND",NAN%
  6. 150 LOAD@ "JAJA.SND",JAJA%
  7. 160 LOAD@ "JAGA.SND",JAGA%
  8. 161 LOAD@ "MAJI.SND",MAJ%
  9. 162 LOAD@ "MAKICHI.SND",MAK%
  10. 170 PRINT"＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊"
  11. 180 PRINT"＊　　　　　　　　　　　　　　　　　　＊"
  12. 190 PRINT"＊　　　　　宮崎弁トーカー　　　　　　＊"
  13. 200 PRINT"＊　　　　　田舎くん　　Ver1.O        ＊"
  14. 210 PRINT"＊　　　　　　　　　　　　　　　　　　＊"
  15. 220 PRINT"＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊"
  16. 230 PRINT"下のメニューから選んで番号を入力してください。"
  17. 240 PRINT"それを、宮崎弁でTOWNSがはなします。"
  18. 250 PRINT"===========メニュー============="
  19. 260 PRINT"1.あなたの名前はなんですか？"
  20. 270 PRINT"2.すごくさむい"
  21. 280 PRINT"3.何をしているのですか？"
  22. 290 PRINT"4.そうそう!!(納得している)"
  23. 300 PRINT"5.そうですよね"
  24. 310 PRINT"6.本当" 
  25. 311 PRINT"7.そうそう、本当にえらい事になった"
  26. 312 PRINT"8.終わり"
  27. 320 INPUT"番号 > ";A$
  28. 330 IF A$="1" THEN PCMPLAY ANTA%
  29. 340 IF A$="2" THEN PCMPLAY TEGE1%
  30. 350 IF A$="3" THEN PCMPLAY NAN%
  31. 360 IF A$="4" THEN PCMPLAY JAJA%
  32. 370 IF A$="5" THEN PCMPLAY JAGA%
  33. 371 IF A$="6" THEN PCMPLAY MAJ%
  34. 372 IF A$="7" THEN PCMPLAY MAK%
  35. 380 IF A$="8" THEN PRINT "終わります":END
  36. 390 GOTO 320 
  37.